home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Technotools
/
Technotools (Chestnut CD-ROM)(1993).ISO
/
lang_c
/
cserial
/
msc.asm
< prev
next >
Wrap
Assembly Source File
|
1990-04-04
|
1KB
|
95 lines
_TEXT SEGMENT WORD PUBLIC 'CODE'
_TEXT ENDS
_DATA SEGMENT WORD PUBLIC 'DATA'
_DATA ENDS
CONST SEGMENT WORD PUBLIC 'CONST'
CONST ENDS
_BSS SEGMENT WORD PUBLIC 'BSS'
_BSS ENDS
DGROUP GROUP CONST, _BSS, _DATA
ASSUME CS: _TEXT, DS: DGROUP, SS: DGROUP
_TEXT SEGMENT
ASSUME CS: _TEXT
PUBLIC _peekmem
_peekmem PROC NEAR
push bp
mov bp,sp
push es
push bx
push si
mov bx,WORD PTR [bp+4] ;seg
mov es, bx
mov bx, WORD PTR [bp+6] ;off
mov si, bx
mov bx,WORD PTR [bp+8] ;var
mov ax,WORD PTR es:[si]
mov WORD PTR [bx],ax
pop si
pop bx
pop es
pop bp
ret
_peekmem ENDP
PUBLIC _inbyte
_inbyte PROC NEAR
push bp
mov bp,sp
push dx
mov dx, [bp+4]
in al, dx
mov ah, 0
pop dx
pop bp
ret
_inbyte ENDP
PUBLIC _outbyte
_outbyte PROC NEAR
push bp
mov bp,sp
push dx
mov dx, [bp+4]
mov ax, [bp+6]
out dx, al
pop dx
pop bp
ret
_outbyte ENDP
PUBLIC __kbhit
__kbhit PROC near
mov ah, 1
int 16h
jz kbnothit
mov ax, 1
ret
kbnothit:
mov ax, 0
ret
__kbhit ENDP
PUBLIC _enable
_enable PROC NEAR
sti
ret
_enable ENDP
PUBLIC _disable
_disable PROC NEAR
cli
ret
_disable ENDP
_TEXT ENDS
END